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1. SCOPE 


This document contains the final design specification for an 
augumentation to the Procedure 1 EOD-LARSYS system. This addition 
involves reading starting and/or bias dots in the LACIE format 
from the DOTDATA processor. 

It is implemented on the version of EOD-LARSYS on the Purdue-LARS 
370/148 currently under conversion. 


/ 


2 . APPLICABLE DOCUMENTS 


• As-Built Design Specification for EOD-LARSYS Procedure 1, JSC 13143. 

• TIRP: 77-0070 




3. SYSTEM DESCRIPTION 


3. 1 HARDWARE DESCRIPTION 
N/A 

3.2 SOFTWARE DESCRIPTION 

The DOTDATA processor of the EOD-LARSYS system has been expanded 
to accept dot (field) cards in the LAC IE Procedure 1 format. 

These cards have the general form: 

DOT (TYPE) (CATEGORY) { (LACIE NUMBERS) } 

where 

DOT: Starts in col. 1 

TYPE: = 1 or 2 

CATEGORY: 1 character category identifier 

LACIE NUMBER: integer value from 1 to 209. 

This addition requires an additional option read by subprogram 
SET13 and flagged by an additional variable in the DOTVEC labeled 
common block. A new routine, FLDLAC, reads and decodes the dot 
cards. 

In order to specify dots not covered by LACIE numbers, a special 
code is implemented. This code consists of line and sample 
incrementors added to the LACIE number. 


3.2.1 SOFTWARE COMPONENT NO. 1 (SET13) 

Subprogram SET13 reads the control cards needed for dot processing. 


3.2.1. 1 Linkages 

SET13 is called by routine DOTDAT and in turn calls utilities 
NUMBER, NXTCHR , FIND, and ORDER. 

3 . 2 . 1 . 2 Interfaces 

SET13 interfaces with other routines by means of common blocks 
DOTVEC , INFORM, and GLOBAL. 

3 . 2 . x. 3 Inputs 
• New/Revised Control Cards 

OPTION LAC IE Turn on LAC IE dot format 

option 

3.2. 1.4 Outputs 
N/A 

3 . 2 . 1 . 5 S torage Requirements 
TBD 

3. 2. 1.6 Description 

The option LACIE is added to the OPTION control card. The 
variable named LACIE is added to the DOTVEC labeleo; common 
block. LACIE is initialized to the value 0. Upon encountering 
an OPTION LACIE control card, LACIE is reset to the value 1, 
indicating LACIE type dot (field) cards will follow the *END* 
card. 


3.2. 1.7 Flowchart 
N/A 

3. 2. 1.8 Listing 

¥ 


See Appendix A. 


3.2.2 SOFTWARE COMPONENT NO. 2 (FLDLAC) 

The new subprogram FLDLAC reads and decodes the LACIE formatted 
field (dot) cards. 

3. 2. 2.1 Linkages 

FLDLAC will be called by subprogram DOTS if LACIE ^0 Each 
call to FLDLAC provides, upon return. 

1. a dot (field) description (first return) 

2. transfer to dot file writing (second return) 

3. transfer to dot file writing (third return) 

3. 2. 2. 2 Interfaces 

FLDLAC interfaces with other routines through a calling sequence 
and common blocks DOTVEC and INFORM. 

3.2.2. 3 Inputs 
Calling Sequence: 

SUBROUTINE FLDLAC (FIELDS, STAMNT, $, $, $, IPT, VERTEX) 

Description 

Category name and dot 
type for dot I stored in 
FIELDS (1,1) and 
FIELDS (4,1). 

Initially set equal to 1., 
switch to indicate dots 
being taken from currently 
read card. 

Returns to Dots 


Parameter 


FIELDS 


Dimension 


(4,250) 


In/Out 

Out 


STAMNT 


In/out 


$ 

$ 

$ 


s 


Parameter 

Dimension 

In/Out 

Description 

IPT 

1 

Irt/out 

Initially set equal to 0, 
index number for field 
vertex information. 

VERTEX 

1000 

Out 

Vertex information for each 




dot. 


In addition, FLDLAC stores the FLDINF vector in common block 
DOTVEC with rectangular co-ordinates of field enclosing each 
dot field. 

3. 2. 2. 4 Outputs 
N/A 

3. 2. 2. 5 Storage Requirements 
TBD 

3. 2. 2. 6 Description 

The DOTDATA processor has been modified to permit reading and 
processsing of dot cards of the form 

DOT (TYPE) (CATEGORY NAME) ({LAC IE NUMBERS}), i.e., 

DOT 1 W 2 5 10 29 32 54 110 

The present processing also uses input training field formats. 
"TYPE" cards are used to prefix a set of dots. This remains as 
the default option. The association between LACIE numbers and 
training field coordinates is as follows. 


LINE 

NUMBER 



10 

20 

SAMPLE NUMBER 
30 ... 

190 

10 

i 

2 

3 

19 

20 

20 



38 

30 

39 



57 

• 



LACIE 


• 



NUMBERS 


no 

191 



209 


Two expansions of the LACIE card format are incorporated. These 
arc 

1. Free-field locations of all information cards, cols 1-80 7 data 
items separated by at least one blank, with the restriction 
that DOT identifiers start in col 1, and the dot type appear 
in column 5. 


2 . In order to cover pixels not included in the LACIE numbering 
scheme, input dot numbers will be represented as the 
numerical equivalents of 

N = LI*10 8 + Sino 4 + LACIE 

where 

LI = # lines to be incremented (up 6r down) from the line 


number 

mapped from 

the LACIE number. The convention 

is 



LI 

negative 

to increment up 

LI 

positive 

to increment down 

LI 

zero 

to avoid incrementation 

#samples to be incremented (fight or left) 

SI 

negative 

to increment left 

SI 

positive 

to increment right 

SI 

zero 

to avoid incrementation. 



For example, LI»2, SI«-3, LACIL ■ 38 yeilds 
N » 2*10® -3*10 4 + 38 - 199970038 

would correspond to the pixel at (187,22), ie, the pixel at sample 
number 187 and line number 22. 

Letting LI» SI*0, LACIE * 38, obtain 
N ** 38, correspond to the pixel at (190,20). 

Reduction of the value of N to sample and line coordinates will 
proceed as follows. 

* |N|/10 8 (truncated to integer) 

if |n|-N 1*10 8 > 10 7 set N x - N^l 

LX = N^* sign (N) 

N 2 = N-LI*10 8 
i i 4 

"1 “ I N 2 f (truncated to integer) 

if | N 2 | - N 3 *10 4 > 10 3 set N 3 = N 3 +l 
SI * N 3 * sign (N 2 ) 

LACIE = N 2 - SI*10 4 

LR = LACIE ROW# « ( (LACIE-1) /19 + 1) *10 

LS = LACIE COL# -=10* (LACIE - ( (LR-1) /10 ) *19 ) 
where truncated divides are specified. 

Finally, 

L = LR + LI line number corresponding to N 

S = LS + SI sample (column) number corresponding to N. 

In the scheme to follow, each dot is considered to be a field. 

All type 1 dots will occur prior to type 2 dots, ie, the input 
cards cannot be scrambled with respect to dot type. Otherwise, 
arbitrary order to cards and LACIE numbers on each card are 
permitted. 



At present, subprogram FLDTYP, called by DOTS, processes dot 
cards. This routine is not easily modified to accept the 
LACIE format. Consequently a new subprogram, FLDLAC, was 
written and called instead of FLDTYP from DOTS if LACIE + 0 . It 
is called from DOTS as 

CALL FLDLAC (FIELDS, STAMNT , $100, $510, $520, IPT, VERTEX) 
Initialization, at the start of the DOTS routine, invokes 
IPT = 1 

If (LACIE. EQ. 1)IPT = 0 
STAMNT = 1 
NOFLD2 = 0 
TYPE = 1 
NOCAT = 0 

Subprogram FLDLAC has the following structure. 

SUBROUTINE FLDLAC (FIELDS, STAMNT, *, *, *, IPT, VERTEX) 

IMPLICIT INTEGER (A-Z) 

DIMENSION FIELDS (4,1) , VERTEX(l), CARD(62), LD<|>TS(30) 

LOGICAL SWITCH 

DATA SWITCH/. TRUE./, SWCHG/ 0/ , ENDBCD/ $EN/ 

INCLUDE C<J)MBK1 ( / INFORM/) 

INCLUDE CMBK14 ( / D<J)TVEC/) 

The function of the various parameters is as follows. 

IPT index number for dot (field) vertex information 

NOFLD2 number of fields (dots) for dots of current type 

(common block INFORM) 

number of times dot type has changed. This must be 
no greater than 1 or an input error will have occurred. 



SWCHG 


SWITCH 


flags a dot type change. The second return will be 
taken for subsequent writing of a dot field, (internal) 

STAMNT if * l, a new dot card has been read if *2, dots are 
being processed from a previously read card. 

TYPE dot type being processed (common block DOTVEC) 

The calling sequence of FLDLAC is the same as that for FLDTYP , and 
the meaning of FIELDS and VERTEX remain?; the same. 

IF (STAMNT. EQ. 2) G<j> T<}> 30 
IF (.NOT. SWITCH) G<f> T<{> 20 

10 READ A CARD, extract TYPES from column 5 
If (TYPE. EQ. TYPES) G<{) T<j> 20 
If (SWCHG.NE.O) error exit 
TYPE=TYPES 

20 RE-READ CARD, extract 

CATNM category name 

NDCARD #dots on this card 

ND<|>TS(I), 1=1, NDCARD dots on this card 

If (NDCARD. EQ.0) G<|) T <j) 10 

ICNT = 0 
STAMNT = 2 
SWITCH = .TRUE. 

G^> T$ 100 

30 If ( ICNT. LT. NDCARD) GO TO 100 

STAMNT = 1 
ICNT = 0 



READ A CARD, extract first 3 characters and store as ID, extract 
TYPES 

IF (ID,EQ.ENDBCD) RETURN 3 
IF (TYPE. EQ. TYPES) G<f> T$ 20 

SWITCH. = .FALSE. 

SWCHG * SWCHG+1 

IF ( SWCHG. GT.l) error exit 

N<f)CAT ■ 0; TYPE = TYPES 

IPT = 0 
RETURN 2 


100 ICNT = ICNT+1 

N<f>FLD2 = N<f>FLD2+l 

find sample and line numbers S and L from ND(j)TS (ICNT) as 
described previously. 

Store 

FIELDS (l,N<f>FLD2) « CATNM 
FIELDS (4,N$FLD2) = 2 ' 

FLDINF (1) = L \ 

FLDINF (2) •■= L j 

FLDINF (3) = 1 \ rectangular bordering field (dot) 

FLDINF (4) = S ( 

FLDINF (5) = S 1 

FLDINF (6) = 1 ' 

IF (IPT.NE. 0) GO TO 35 
IPT = -3 
35 IPT = IPT+4 

VERTEX (IPT) = S 
VERTEX (IPT+1) = L 
VERTEX (IPT+2 ) = S 
VEIRTEX (IPT+3) = L 
RETURN 1 
END 


J* 

fl 


Regarding the extraction of dot numbers NDOTS(I), 1=1, NDCARD , 
a new routine, NUMBR, similar to existing function NUMBER is 
provided. (See Section 3.2.3.) 

3 . 2 . 2 . 7 Flowchart 
M/A 

3.2 .2. 8 Listing 

See Appendix A. 



3.2.3 SOFTWARE COMPONENT NO. 3 (NUMBR) 

The new subroutine NUMBR process one input card of information at 
a time. It recognizes blanks as deli mi tors and store all numbers 
in array NDOT (NDCARD) . NDCARD will be the total number of dots 
on that particular CARD. 

3. 2. 3.1 Linkages 

NUMBR is called by FLDLAC routine and reference only routine 
I4A1BN . 


3. 2. 3. 2 

Interfaces 


Interface 

between NUMBR 

and FLDLAC 

arguments 



3.2. 3.3 

Inputs 


Calling Sequence: 


Subroutine NUMBR (NDOTS,! 

NDCARD, CARD 

Parameter 

Dimension 

In/Out 

NDOTS 

(30) 

In/out 

NDCARD 

1 

In/out 

CARD 

(75) 

In 

COL 

1 

In 

3. 2. 2. 4 

Outputs 



and I4A1BN is via the calling 


,COL) . 

Description 

Contains all the dots 
read from one LACIE formatted 
dot card. 

Index to NDOTS of total 
number of dots read from 
one CARD. 

Card to read 

Starting col. number of 
CARD. 


Array NDOTS (NDCARD) of dots read from a card. 


3 . 2 . 2 . 5 Storage Requirements 
TBD 


3 . 2 . 3 . 6 Description 

Subroutine NUMBR takes as input arr:iy -ARD and uses the input 
COL + 1 as the starting element of CARD. Each element is tested 
for a blank. If not a blank the element is changed to integer 
representation by a call to routine I4A1BN. The entire number 
is collected until a blank is encountered. NDCARD is incremented by 
one and the number is stored in NDOTS (NDCARD) . When the end of 
the CARD is reached, NUMBR returns to FLDLAC all the dots on the 
card in array NDOTS with NDCARD as the number of dots it processed. 

3.2.3. 7 Flowchart 
N/A 

3. 2. 3 . 8 Listing 

See Appendix A. 




APPENDIX A 
PROGRAM LISTINGS 



c 

c 

c 

_ * 

c 

c 

c 

c 


c 

c 


C3FND 


10 

1 03 


1 000 


C 

c 

c 

£0 

c* 


l 


C 

C 

r. 


o o 


FIELDS - CATEGORY NAME AND HOT TYPE FOP DOT I I TOPED IN 
FIFL D f 1 * 1 1 ROJl FIELD > 4 » 1 ) 

STNMN 1 - IN 1 THLLY SET 10 1 , ".WITHCED TIT INDICATE DOTS Cl: I lift 
THFEN FF'OM tUPPENUY READ CARD. 

IP! - INITIALLY 3 EI TO 1 . INDEX NUMBER FOP FIELD VERTEX INFORMATION 
VERTEX - VERTEX INPORMRl IOy FUR EACH DOT. 

SUBROUTINE FLPLHC tF IELD* » STAMHT «♦.♦»♦» IPT» VERTEX' 

IMPLICIT I HI E 6 F.R 'R-Z' 

PERL DUN 

D 1 MENS ION FI EL DSt 4 »l>> VERTEX t|>» CRF'D C 75 '' - MOOTS « 3 O' 

OMENS ION AC APB ( S 0 ' 

LOGICAL S lit ITCH 

DRTR SO I T CH- y . 1 RUE . / • STIC FIG -- 0 / » ENDBCTi/ - $>FM ' 

♦CRT Mi'll "/ 

INCLUDE CMBE 14 
INCLUDE COMER 1 

COMMON *■' I NFOPM ■ NOCLSc' - NUSUB 2 » NOR ETS » VAPSZ 2 » TOT VT £• ( IPFLD 2 * 

♦ AVARS » C 0 VRR 2 * CLS 1 D£ » SUBURB » CUBPS £ * F L 0 SV 2 » VE PTX? » 

♦ FETVCS < 310 ' » SUBVCEUTG'' .SUB^TR <FV' * CL 3 VC 2 < 6 O' * 

*■ KEPPT S t, 6 0 > t NrJbRP > 6 PPMAH >. 60 ) * GPPDEX *.*?• 1 ) ? 

♦ GPPCHh > 61 ) • GROUPS' < 1 24 ) 

COMMON -''DOT VEC^'T YPE ? CRT NAM > 60 > ? NOt'fiT ? TOTVEC* FLD I HP < 6 > » PP'I I EY 

♦ jSIZE » LAC IE 


IF t'STAMNT.EO. 2) GO TO 30 
IF t.um .31,1 ITCH' GO TO £0 
CAL L REREAD *' 3 0 » 3 0) 

READ t£l » 103.' t.HCAPD ».I> « 1 = 1?80> 
FORMAT t.SOHl ' 

WRITE <30* 1 03) ( A CARD <1 > * 1=1 * 30) 
PEW 1NII 30 

READ < 3 0 * 1 0 00' IDO YPE3 * C HPD 
REWIND 30 

FORMAT <A3« IX? 1 1 ? 75R1) 

I F *' T )'PE . EC! . T YPF $ )GO TO 20 
I F OSWCHG . HE . 0) GO TO 4 0 
TYPE = TYPES' 

PEAD CARD 


'-mmM, page m 
-»• nmirry 


COL = 0 

CAT NM = NKTCHP >• CARD , COL > 

IF NEXT CHRP IS NOT A CRT. NAME * CORRECT COL COUNT TO READ HUM 

IF*'CRTNM. GT . O' GO TO £1 

I F «.C RT NM . EC* . CRT Nl*1 1 > 60 TO &3 

NOCm^NOCrTT + 1 

CRT NAM *' NUC AT ’' =CRT NM 

CRT NM 1 = CRT MM 

GO TO £3 

CUL=Cni - 1 

NDCRPD»0 

CALL. MUM BP > NDDT s * MBCRPD» ChPD* COL) 

IFUTJiChPD.ECi. O' GO TO 10 

i cm = ii 

STAMNT = 2 
SWITCH = .TRUE. 

GO TO 100 

TEST FOP END OF DOTS TO BE PROCESSED UN CARD 
IF > ICMT.LT. NDCuPD'Gn TO l'n) 



r 


1 


« 

** 

c 


i 

i 


t 

C READ NEXT CARD 
C 

>1 AMNT * I 

i cm * o 

PERD<£1 * i 01; . tACAR.D* 1> > 1=1*80' • * 
WRITE <30* 1 03*' < AC ARD *' 1 .> * 1 = 1 * S C > 
REWIND 30 

REND <.30* 1 000 ' I D* TYRE ‘ :* CARD 
REWIND 30 

1 F < I D . EC . ENDDCD > RETURN 3 
1 F <T VRE . EC . TYPE - • CCI in £0 
SWITCH = .FALSE. 

SWCH'3 = 3WCHG + 1 
I F CSWCHG . Cl . 1 > 60 TO 40 
TYPE = TYPES 
NL'ICAT = 0 
IPT = 0 
PET URN £ 

C 

C 

100 1CNT = 1 CNT + 1 

N0FLD2 = NOFL D£ + 1 

C 

C COMPUTE LINE INCREMENT 

C 

NN = N DOTS' CICNT> 

Nl =IRBS< NN.' / lOOuOoUUC 
LI = IADS <NN' ( - NI ♦ 100000000 
i F CL 1 . GE . 1 0 0 0 0 0 0 0 0.' NT -- N] +1 
C 

C COMPUTE SAMPLE INCREMENT 

C 

J 

IFCNN.LT. 0> KK=- 1 
LI = NI ♦ KK 

N£ = NN - LI *■ lOOOuOOOO 
NS = IADS < N£) s l 0 0 0 0 
SI = 1 ADS' <N£> -N3 ♦ IOuOO 
IFCSI.GE. 1000<N3 = NS + 1 
KK=1 

IFtNfi.LT. 0.:<RK=-1 
SI = N3 ♦KK 

LAC I = N£ - SI ♦ 10000 
LR = <LACI-1>/18 
LR = <LR+n ♦ 10 
LS = LR - 1 
LS = LS S10 

LS = 10 ♦ '.LAC I - f.LSM 3;.'> 

L = LR. -LI 
S = LS + SI 

c 

C STORE DOT INFO 

0 

FIELDS' 1 *NLT c LDc:.' 

- F I ELDS <.4 * NO? LD£'.' 

FLDINF >' T.' = L 
FLD1 NF '' £ > ■ = ' 

FLDINF < 3' = 1 
FLDINF '"4;. = S 
FLDINF <5 ' = 3 
FLDINF <*'• - 1 


= CAT NN 




t 


IF t IPT. HE. 1 .U 6 O TO *5 
* I PI ■ ~3 

36 1 PT * IPT + 4 

VERTEX t I PT> * S 
VERTEX* I PT+ 1 '» *L 
VERTEX t 1 PT +£> *S 
VERTEX' I PH- 3 >eL 
PETUPH 1 

4 0 WRITE *.6> £ 00 i.o 

£ I'.n.i CI F DPMAT t..-' sS'i . ' EPPQP HlTi 
■ *DS - SUBROUTINE FLDLAC 
PEI UPH 3 
EHD 


I 


I f, 


! . i 


i 



i 


OCCURRED IH READ I NS LHC IE FORMATTED DOT CAP 
- EXIT TAKEN') 



t 


i 


< 



* 




« 


>TYPE HUHBR FORT RAM f.COL l-Pg 

C* SUBROUTIHP. HUMBR MILL -RROCF.CC OHF LH^D hT ft TIME. 

C* IT READ? AMD CTQREC ALL HUMBER? IN ARRAY MPDT3. 1.1 1 TH 

C* tlDCftF'D ft* ftH IHBEM. BLANK C APR THE QHLV PECDtUZED 

£♦ DELIMITERS. 

S'UBROUT I HE MUMBR ULiOT *C» HDCftRiH CARD. COL> 

IMPLICIT INTEGER »ft-”’' 

DIMEHSIOM HOOT? • 1*> » CH'-’H • I > 

DAT ft BLHHLv - - -H CPIL l ;>?!>' 

HUH=0 

MC = COL + 1 

5 IE OlC.6T.CRDtI2>SO ID 50 
DO 10 I =MC« CRD? 1 2 
lF<CflPD«l> .EO.BLBHI «ft[J TO 7 
CALL 1 4ft 1 PH > CARD • 1 > . 1 . HMLTRIO 
HUM = HUMM 0 + HMPPD 
GO TD 30 

7 IFUIUM.LT. i:' GO TO 30 

IF Cfl'JM. GT . £09) WRITE <*. SOU' HUM 
HDCftRD=HPCftPD + 1 
MOOT S <H DORR 10 =NUM 
HUM = 0 
30 CONTINUE 
10 COM T1 HUE 

500 FORMAT 0/5K- 'LftClE DOT READ THAT 13 GREATER THAN S'lZE LIMIT 
:OF £09 - EXECUTION CLTNT IMUED WITH VALUE READ OF ',14> 

50 COHTIHUE 
RETURN 
END 

R ! T= 0 . 07V 0 . 3£ 1 0 : 5£ : £6 



fS'G'NAL m. 

"-58L* 


o c 


TYPE SE113 FOPTPRH «C'OL l-?<? 


CUE Hli 


BUYOUT UiE SET 13 

IMPLICIT IHTEUEP 'ft-E:* " , . 

D 1 MEHT 1 OH CDIifc ' ?' * C ftPB « ► - 2 * » EOUC'QM ‘ 3 .» * HCftPP < £ O' 

BIMRUIOH :LR'.*H>£.) 

DftTft SLfli'H ••"l* '/'/ 

DATA CODE ' CHft! 1 • ' DPI A • * •’ DPI F ' * 

♦ "OP1 1 - * * DA1FL . CONtl- , • HEB1 ‘ > • HEP!?' . ' ♦EHD'V 
DAI H P.PUC DH/£.. ' «” «”«■' / 

DATA D ’ -■> * BLHh •' ‘ - - »1.L ‘ U‘ /, PF/' P ' /> UQ/'Q-’ /» P/' P' / 

DAT ft L •" L ' / ' 

IHCLUDE COMBE 1 . LI '1 
1HC LUBE COMBI 4 » LlTI 
IHCLUDE COM BE A* LI CT 
lHCLUl’iE CUBE 14R.1 ;1 

COMMON- lMFOPM'’MrjC'LCsi« HflCUBf « MUFF.Tc!? VftPS2E» TOTVTgi MOFLDSi 

♦ HVftF*£. CnVRVp, CLS IDE* ?UBt<02» SUBB'S* FLD; V£j VEPTHS* 

♦ FETVCc'i -fin , JUBVCS'75' * CUPP! P <?3'. >CLSVC2f&P> * 

♦ KFF'PTi i*i.i > , ttOSPPj 6PPHAM • 6tT> » 6PPDEX <61> » 

♦ 6PPCHE ( * 1 > . eppiJP? < 1 S 4) 

D I MENS I OH HE D 1 • 1 *j.t . HbD2 » 1 Ul' • DftTF •' 3> * C0MEH7 1 U ' 

EPUIVhLEHCE CHHDI ( Dftl E * 1 ' * HEAP 1 ££ > > » 

£ ('HEPS ' l'J - HERD < 30.' » » < COMEHT <1>» HEftB<4S> > 

COMM! lH^LOBfiL.'HEftH * *3 > • MHP1 HP - lift! ftPE » SAVTHP . BMP 1LE» BMP EY > 

♦ HISF 1 L « H I II EY- 1 PFDPH. EPIPTPj PPPEEY> HAPUHT « HCIFILEj 

♦ CPUMHtu IPMMDSfFTOSI?* PM FIL. SlftFIL* ftjftV* AiAVFL 

♦ j NHI- 1 UH» HH1TF1 * i'CTPUH* MHPF IL 

♦ , DUTI.IHT . DOT F 11. • HCHPASs TPHCFLj BMTPFL? H1S1 FL> F'CHUHT • 

♦ CPPUH1 >PPTUm»PAHDID 

COMMOH /POT VEC^'T YPE » CftTNftM ' *0? » HOCftT » TOTVECs FLDIHF <£!' » PPTLEY 
j SIZE , LftCJE 

ZEP’CI ••= 0 
MOFETS - 0 
FIELD = 1 
PP1EEY = 0 
HF‘in =9 
LftClE = 0 


l.iPITEoS, 100 * 

1 00 F'DPMHT 1 1X» " INPUT SUMMARY' /v\> 
i'ET UP PEPEftP BUFFER 


PPUMU = 30 

CALL PE'PE HD ' PPUH 11 « S 0 :• 


C PUT CftPli 1H BUFFER 
C 

1 0* READ ' £l * 1 03 1 ' HlHPD 1 1 1 « I — 1 * E'U 1 
103 FOPt'IHI > c'0H4:i 

!ilF n E i 3 ii, i ij ;; , .t-XftPD' 1 ' • 1=1.£ O ' 
R£i,.liru'i PPUH 1 1 
C 

F'EftD ' 30« 1 1 O ' CUDEl > Cft c ‘Ii 
PEMjriP PR'JHIT 

cm.- o 

UP HE Jc'O'CUli- 1 •CftPT.i 

1 El 0 P OPI'IH I ' 1. II »H4i ? 0'3H 1 J 

1 l 0 F [3PHH1 ' i-'-l ■ ' >' t ' 



t 

c 

I 


t 


nu isu i s hpui 

IK C.CUZJE.1 . f-C*. C'LltiE * I * * 30 TD * .-.50. 180*21 0. 33P*37fi, 

, ♦ 330. 4M(I* 41 0*4£0) * 1 

130 COMT INI IE 

139 WP1TF to* 14 m* 

14U FORMAT C. * INVALID CONI Fill. CARP - IGNORED O 
SO TO 109 
C 

C CHANNEL CARP 
C 

150 M s HF1 CAR ‘CARP* COL > 

IF ‘M. EC, Ii ■ GO TO 199 
IF <M. EC'.DUIF ) GO TO 105 

152 l.iPlTEtfe* 153' 

153 FORMAT ERROR OH lM'l A CARIl") 

GO TO 105 

155 J * F I Nil 1 £ * CARD* '* L)L • f C'UCOM) 

IF '.J . HE . £> GO 10 15? 

HOFEI £ * HUMBER 'CURB . i; HI * FE1 VC £ • HDFETrM 
CALL OPPF.P * F £T VC2 J HOF El £> 

GO 10 105 
C 

C DATA FILE CARD 
C 

ISO M - NXTCHP • CAPO* C 0L1 

IF CM . Eli. HLHH - GD TL1 105 
IF HI.EC'.U) GO TO 13 0 
IF fM.EO.PF> GO TO £00 

1 35 lilRl l E t€ * 18"> 

1S7 FQFMAT *' ERROR OH DATA FILE CARpO 
GO TD 105 

190 J a F 1 ND 1 2 <C APB * COL. » CPUCOM> 

IF (J . HE. S> GO TO 185 
M = NUMBER r CARD* COL* pH’l FlFFI* KERfl) 

COL = COL - 1 
GO TO ISO 

£00 J « F 1 HI* 1 2 c CARD « COL * tn.UL UM) 

IF ( J .HE. £ > GO TO 1 35 
M a NUMBER ''CARD* COL, DATF1L* ZERO) 

DATFIL « IiATFIL - 1 
COL = COL - 1 
GO TD ISO 
C 

C [IDT FILE CHFD 


£10 M a HMTCHRf CARD. COL) 

IF fMvEC.r.iL'l'' GD TO £13 
IF f.M.F-0. BLHK) GD TO 105 
GO TO £15 

£13 J - F I ND1£ f.CAPD* COL * SLASH • 

IF J .EC. -1) GO TO £15 

£14 M -- MSTCHR ■•CARD* COL) 

IF '' M . EC. BLHK ) GO 10 105 
IF 'M.hO.i.i' GO TO £3U 
IF (M.EG'.FF) GO TO r.'4M 

£15 l'l p I1E (£•» c'£0> 

220 FORMAT 1 ‘ FRF' OF' L1H P01 FILE CARP'') 
GO ID 105 

£30 J - F I HP IS ''CARP* COL* 1 C'UCWM) 

IF J .HE. £ ' GO F.i £15 
M -• HUMBER '.CARD* cDi * p'.il UHT * OfeF tJ 1 
COL = Ct’.ll. . - 1 
GO TO £14 


<*1 


rf! 


£•*0 * Hnru^a’HPLi-iini.'K'*.' mm* 

IF (J .Mb. k> GO TD 713 

m * nuMPCP'CflfL'traLtiirnuL.zEPn* 

IIOTFIL * DDTF1L - 1 
CDL * CDL -■ 1 
60 T Q c* 1 4 
C 

C DPT 1 CIH CFtPIi 
C 

330 M * MKT CHP c CRPl'i < CDL '• 

IF <M .EO. BLM* • M IQ 103 
IF tM.fcT'.p* GP TIT 340 
IF f M. Ei’ 1 . IT 60 TD 345 
333 MF1TE‘6» 335»- 

335 FORMAT <*' ERROR DM DPTIDM CRPDO 
GO TO 103 
340 PRTKEY « 1 
GU TD 105 
345 IRC IE * 1 
GO TD 105 
C 

C DATE CRPD 

C 

370 M - MXTCHPtCflPrj-CULT 

IF (. "1 . EC 1 . RLM1 > GO TD 105 
PERL* < 3 0 * 330 '■ I'HTE 
330 FORMAT < 1 OK* 6?R6> 

REM I Mil C'PUfUT 
GO TD 105 
C 

C COMMENT CARD 

C 

390 M = MKTCHP <ChPD, COLj 

IF <H .EC. BLIP" > GO TO 103 
F'Eflli <30, 330 1 CPMF.MT 
PEW 1 Mb RC'UMIT 
GD TD 103 


C HED1 

400 M » MKT CHPtCrt'DtCDO 
PERU < 3 0 , 33 0 1 Hfc’Ii 1 
REI.IIMH RRUMIT 
GD TD 103 
C 

C HED3 

C 

410 M = MKTCHP < CRRH * L’QL > 

PERU' 30, 330' 1 HED£ 

REWIND PRUMIT 
GO TD 105 
C 

C ♦EMU*- 

c 

430 CDMT lM'Jh 

IF t MHF ET £ .HE. (n GD TD 440 


430 


DD 430 1=1,30 
FETVCr' < I ' = I 
CDMT I HUE 
NOFET 3 = 1 




I 


' 4.4 U il£E * 4 + M0PET2 
C 

c 

WRITER.* I 00 O'* , . 

IF <MG. r ETe! .HE. U' WPI ‘E 1 OlO'* <FE1VC2‘ 1 * » I«l« HUFET3) 

IF f.PPT*;EY . EC'. i « MPnE«*»lw3»'M 

1 040 f-OPMflTf UBClt FDRMBTIEII HOT CftPDS USED AS EOD-l.HF JYS PIFU» CAPO 
: > 

IF fLftCUE.Ei;'. Ui4M> 

iooo FfjvM'-d < u.f.p m: reouecied the- follow i hr dptujh: **/> 

UUO FORMAT f ' :Kl.fcC1EIi CHAHHELl HFE ' * 3Ul 3> 

1 0 HU FORMAT < e PR1H1 DATA VFCTOPS'i 
C 

PETUF’H 
C 

EMU 

RJ T»Ci. 43/1.82 1 0* !&“< 




I 


.if, 


•I 






